home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / DepthMapTest.AMOS / DepthMapTest.amosSourceCode
AMOS Source Code  |  1997-04-18  |  948b  |  45 lines
  1. Dim DIT(3,7)
  2. Restore DITHER
  3. For Y=0 To 7
  4.   For X=0 To 3
  5.     Read DIT(X,Y)
  6.   Next 
  7. Next 
  8.  Extension_8_0456 "ram:test.0000.dm",9
  9. ST=Start(9)+$14
  10. WX=800 : WY=600
  11. Reserve As Work 10,WX*WY
  12. STA=Start(10)
  13. Screen Open 0,WX,WY,16,$8004
  14. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  15. 'For A=0 To 15 : Colour A*2,A*$111 : Colour A*2+1,Min(A*$111+$11,$FFF) : Next  
  16. For A=0 To 15 : Colour A,A*$111 : Next 
  17. L#=0
  18. L#=L#+1
  19. For Y=0 To WY-1
  20.   For X=0 To WX-1
  21.     Loke Varptr(L#),Leek(ST) : Add ST,4
  22.     P=L# : Rem+DIT(X and 3,Y and 3)*16  
  23.     D=255-(P/16)
  24.     If D
  25.       For PP=0 To 7
  26.         AD=STA+(X/8)+Y*(WX/8)+PP*(WX*WY/8)
  27.         If Extension_8_04F8(PP) and D
  28.           Poke AD,Peek(AD) or Extension_8_04F8(7-(X and 7))
  29.         End If 
  30.       Next 
  31.     End If 
  32.      Extension_8_0388 X,Y,15-(P/256)
  33.   Next 
  34. Next 
  35. End 
  36. DITHER:
  37. Data $0,$8,$2,$A
  38. Data $C,$4,$E,$6
  39. Data $3,$B,$1,$9
  40. Data $E,$7,$D,$5
  41.  
  42. Data $5,$C,$E,$3
  43. Data $8,$0,$6,$A
  44. Data $D,$2,$4,$E
  45. Data $7,$B,$9,$1